home *** CD-ROM | disk | FTP | other *** search
/ Info-Mac 3 / Info_Mac_1994-01.iso / Development / Source / Darth Fader 1.0 Source / Darth Fader / Gamma lib ƒ / gamma.c next >
Text File  |  1993-11-21  |  8KB  |  246 lines
  1. /**********************************************************************\
  2.  
  3. File:        gamma.c
  4.  
  5. Purpose:    This module handles altering the monitors' gamma tables;
  6.             see below for more information.
  7.             
  8. Note:        This file was not written by the author of Darth Fader
  9.             and is not subject to the licensing terms of the GNU General
  10.             Public License.
  11.  
  12.  
  13. Darth Fader -=- fade in and out on system beep
  14. Copyright (C) 1993 Mark Pilgrim
  15.  
  16. This program is free software; you can redistribute it and/or modify
  17. it under the terms of the GNU General Public License as published by
  18. the Free Software Foundation; either version 2 of the License, or
  19. (at your option) any later version.
  20.  
  21. This program is distributed in the hope that it will be useful,
  22. but WITHOUT ANY WARRANTY; without even the implied warranty of
  23. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  24. GNU General Public License for more details.
  25.  
  26. You should have received a copy of the GNU General Public License
  27. along with this program in a file named "GNU General Public License".
  28. If not, write to the Free Software Foundation, 675 Mass Ave,
  29. Cambridge, MA 02139, USA.
  30.  
  31. \**********************************************************************/
  32.  
  33. // File "gamma.c" - Source for Altering the Gamma Tables of GDevices
  34. //   Last updated 11/9/93, MJS
  35.  
  36. // * ****************************************************************************** *
  37. //
  38. //    This is the Source Code for the Gamma Utils Library file. Use this to build
  39. //        new functionality into the library or make an A4-based library. 
  40. //    See the header file "gamma.h" for much more information. -- MJS
  41. //
  42. // * ****************************************************************************** *
  43.  
  44. #include "Traps.h"
  45. #include <GestaltEqu.h>
  46. #include <Quickdraw.h>
  47. #include <Video.h>
  48. #include "gamma.h"
  49.  
  50. long            gammaUtilsInstalled;
  51. globalGammasHdl    gammaTables;
  52.  
  53. // * ****************************************************************************** *
  54. // * ****************************************************************************** *
  55.  
  56. Boolean IsGammaAvailable() {
  57.     GDHandle theGDevice;
  58.  
  59.     if (NGetTrapAddress(kGetDeviceListTrapNum, ToolTrap) ==
  60.             NGetTrapAddress(_Unimplemented, ToolTrap)) return(0);
  61.     
  62.     for(theGDevice = GetDeviceList(); theGDevice; theGDevice = GetNextDevice(theGDevice))
  63.         if (TestDeviceAttribute(theGDevice, screenDevice) && 
  64.                 TestDeviceAttribute(theGDevice, noDriver)) return(0);
  65.  
  66.     return(-1);
  67.     }
  68.  
  69. // * ****************************************************************************** *
  70. // * ****************************************************************************** *
  71.  
  72. Boolean IsOneGammaAvailable(GDHandle theGDevice) {
  73.     
  74.     if (NGetTrapAddress(kGetDeviceListTrapNum, ToolTrap) ==
  75.             NGetTrapAddress(_Unimplemented, ToolTrap)) return(0);
  76.     
  77.     if (TestDeviceAttribute(theGDevice, screenDevice) && 
  78.             TestDeviceAttribute(theGDevice, noDriver)) return(0);
  79.     
  80.     return(-1);
  81.     }
  82.  
  83. // * ****************************************************************************** *
  84. // * ****************************************************************************** *
  85.  
  86. OSErr SetupGammaTools() {
  87.     short errorCold=0;
  88.     globalGammasHdl tempHdl;
  89.     GammaTblPtr    masterGTable;
  90.     GDHandle theGDevice;
  91.  
  92.     if (gammaUtilsInstalled == kGammaUtilsSig) return(-1);
  93.     
  94.     gammaTables = 0;
  95.     gammaUtilsInstalled = kGammaUtilsSig;
  96.     for(theGDevice = GetDeviceList(); theGDevice; theGDevice = GetNextDevice(theGDevice)) {
  97.         if (errorCold = GetDevGammaTable(theGDevice, &masterGTable)) return(errorCold);
  98.         
  99.         tempHdl = (globalGammasHdl) NewHandle(sizeof(globalGammas));
  100.         if (tempHdl == 0) return(errorCold = MemError());
  101.         
  102.         (*tempHdl)->size = sizeof(GammaTbl) + masterGTable->gFormulaSize +
  103.                 (masterGTable->gChanCnt * masterGTable->gDataCnt * masterGTable->gDataWidth / 8);
  104.         (*tempHdl)->dataOffset = masterGTable->gFormulaSize;
  105.         (*tempHdl)->theGDevice = theGDevice;
  106.         
  107.         (*tempHdl)->saved = (GammaTblHandle) NewHandle((*tempHdl)->size);
  108.         if ((*tempHdl)->saved == 0) return(errorCold = MemError());
  109.         (*tempHdl)->hacked = (GammaTblHandle) NewHandle((*tempHdl)->size);
  110.         if ((*tempHdl)->hacked == 0) return(errorCold = MemError());
  111.     
  112.         BlockMove((Ptr) masterGTable, (Ptr) *(*tempHdl)->saved, (*tempHdl)->size);
  113.         
  114.         (*tempHdl)->next = gammaTables;
  115.         gammaTables = tempHdl;
  116.         }
  117.  
  118.     return(0);
  119.     }
  120.  
  121. // * ****************************************************************************** *
  122. // * ****************************************************************************** *
  123.  
  124. OSErr DoGammaFade(short percent) {
  125.     short errorCold=0;
  126.     register long size, i, theNum;
  127.     globalGammasHdl tempHdl;
  128.     unsigned char *dataPtr;
  129.  
  130.     if (gammaUtilsInstalled != kGammaUtilsSig) return(-1); 
  131.     
  132.     for(tempHdl = gammaTables; tempHdl; tempHdl = (*tempHdl)->next) {
  133.     
  134.         BlockMove((Ptr) *(*tempHdl)->saved, (Ptr) *(*tempHdl)->hacked, (*tempHdl)->size);
  135.         dataPtr = (unsigned char *) (*(*tempHdl)->hacked)->gFormulaData + (*tempHdl)->dataOffset;
  136.         size = (*(*tempHdl)->hacked)->gChanCnt * (*(*tempHdl)->hacked)->gDataCnt;
  137.         
  138.         for(i=0; i < size; i++) {
  139.             theNum = dataPtr[i];
  140.             theNum = (theNum * percent) / 100;
  141.             dataPtr[i] = theNum;
  142.             }
  143.         
  144.         if (errorCold = SetDevGammaTable((*tempHdl)->theGDevice, (*tempHdl)->hacked))
  145.             return(errorCold);
  146.         }
  147.         
  148.     return(0);
  149.     }
  150.  
  151. // * ****************************************************************************** *
  152. // * ****************************************************************************** *
  153.  
  154. OSErr DoOneGammaFade(GDHandle theGDevice, short percent) {
  155.     short errorCold=0;
  156.     register long size, i, theNum;
  157.     globalGammasHdl tempHdl;
  158.     unsigned char *dataPtr;
  159.  
  160.     if (gammaUtilsInstalled != kGammaUtilsSig) return(-1); 
  161.     for(tempHdl = gammaTables; tempHdl && (theGDevice != (*tempHdl)->theGDevice);
  162.             tempHdl = (*tempHdl)->next);
  163.         
  164.     BlockMove((Ptr) *(*tempHdl)->saved, (Ptr) *(*tempHdl)->hacked, (*tempHdl)->size);
  165.     dataPtr = (unsigned char *) (*(*tempHdl)->hacked)->gFormulaData + (*tempHdl)->dataOffset;
  166.     size = (*(*tempHdl)->hacked)->gChanCnt * (*(*tempHdl)->hacked)->gDataCnt;
  167.     
  168.     for(i=0; i < size; i++) {
  169.         theNum = dataPtr[i];
  170.         theNum = (theNum * percent) / 100;
  171.         dataPtr[i] = theNum;
  172.         }
  173.     
  174.     errorCold = SetDevGammaTable((*tempHdl)->theGDevice, (*tempHdl)->hacked);
  175.     
  176.     return(errorCold);
  177.     }
  178.  
  179. // * ****************************************************************************** *
  180. // * ****************************************************************************** *
  181.  
  182. OSErr DisposeGammaTools() {
  183.     globalGammasHdl tempHdl, nextHdl;
  184.  
  185.     if (gammaUtilsInstalled != kGammaUtilsSig) return(-1); 
  186.     for(tempHdl = gammaTables; tempHdl; tempHdl = nextHdl) {
  187.         nextHdl = (*tempHdl)->next;
  188.         DisposeHandle((Handle) (*tempHdl)->saved);
  189.         DisposeHandle((Handle) (*tempHdl)->hacked);
  190.         DisposeHandle((Handle) tempHdl);
  191.         }
  192.         
  193.     gammaUtilsInstalled = 0;
  194.     return(0);
  195.     }
  196.  
  197. // * ****************************************************************************** *
  198. // * ****************************************************************************** *
  199.  
  200. OSErr GetDevGammaTable(GDHandle theGDevice, GammaTblPtr *theTable) {
  201.     short errorCold=0;
  202.     CntrlParam  *myCPB;
  203.  
  204.     ((long *) theTable)[0] = 0;
  205.  
  206.     if (IsOneGammaAvailable(theGDevice) == 0) return(-1);
  207.             
  208.     if ((myCPB = (CntrlParam *) NewPtrClear(sizeof(CntrlParam))) == 0) return(MemError());
  209.     myCPB->csCode = cscGetGamma;
  210.     myCPB->ioCRefNum = (*theGDevice)->gdRefNum;
  211.     *(GammaTblPtr **) myCPB->csParam = theTable;
  212.     errorCold = PBStatus((ParmBlkPtr) myCPB, 0);
  213.  
  214.     DisposePtr((Ptr) myCPB);
  215.     return(errorCold);
  216.     }
  217.  
  218. // * ****************************************************************************** *
  219. // * ****************************************************************************** *
  220.  
  221. OSErr SetDevGammaTable(GDHandle theGDevice, GammaTblPtr *theTable) {
  222.     CntrlParam *myCPB;
  223.     short errorCold=0;
  224.     CTabHandle cTab;
  225.     GDHandle saveGDevice;
  226.  
  227.     if (IsOneGammaAvailable(theGDevice) == 0) return(-1);
  228.  
  229.     if ((myCPB = (CntrlParam *) NewPtrClear(sizeof(CntrlParam))) == 0) return(MemError());
  230.     myCPB->csCode = cscSetGamma;
  231.     myCPB->ioCRefNum = (*theGDevice)->gdRefNum;
  232.     *(GammaTblPtr **) myCPB->csParam = theTable;
  233.     errorCold = PBControl((ParmBlkPtr) myCPB, 0);
  234.  
  235.     if (errorCold == 0) {
  236.         saveGDevice = GetGDevice();
  237.         SetGDevice(theGDevice);
  238.          cTab = (*(*theGDevice)->gdPMap)->pmTable;
  239.         SetEntries (0, (*cTab)->ctSize, (*cTab)->ctTable);
  240.         SetGDevice(saveGDevice);
  241.         }
  242.  
  243.     DisposePtr((Ptr) myCPB);
  244.     return (errorCold);
  245.     }
  246.